home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / DialogMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  6.7 KB  |  149 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. Geneva
  21. MODULE MacDialogMgr;
  22. (* cp 
  23.     CouldDialog, FreeDialog, CouldAlert, FreeAlert not supported anymore (obsolete)
  24.     IMPORT SYSTEM, MacTypes, MacEventMgr, MacWindowMgr, MacTextEdit;
  25.     CONST
  26.         ctrlItem* = 4;
  27.         btnCtrl* = 0;
  28.         chkCtrl* = 1;
  29.         radCtrl* = 2;
  30.         resCtrl* = 3;
  31.         statText* = 4;
  32.         editText* = 16;
  33.         iconItem* = 32;
  34.         picItem* = 64;
  35.         userItem* = 0;
  36.         itemDisable* = 128;
  37.         ok* = 1;
  38.         cancel* = 2;
  39.         stopIcon* = 0;
  40.         noteIcon* = 1;
  41.         cautionIcon* = 2;
  42.         DlgFont = 0AFAH;
  43.         ACount = 0A9AH;
  44.         HANDLE = 2;
  45.         CODE = 1; NOSTKCHK = 4;
  46.     TYPE
  47.         DialogRecord* = RECORD (MacWindowMgr.WindowRecord)
  48.             items*: MacTypes.Handle;
  49.             textH*: MacTextEdit.TEHandle;
  50.             editField*: INTEGER;
  51.             editOpen: INTEGER;
  52.             aDefItem*: INTEGER
  53.         END;
  54.         DialogPtr* = POINTER TO DialogRecord;
  55.         DialogTemplate* = RECORD (MacTypes.Data)
  56.             boundsRect*: MacTypes.Rect;
  57.             procID*: INTEGER;
  58.             visible*: BOOLEAN;
  59.             filler1: BOOLEAN;
  60.             goAwayFlag*: BOOLEAN;
  61.             filler2: BOOLEAN;
  62.             refCon*: LONGINT;
  63.             itemsID*: INTEGER;
  64.             title*: MacTypes.Str255
  65.         END;
  66.         DialogTPtr* = POINTER TO DialogTemplate;
  67.         DialogTHndl* = POINTER [HANDLE] TO DialogTemplate;
  68.     (** Initialization **)
  69.     PROCEDURE [CODE] ErrorSound* (soundProc: MacTypes.ProcPtr) 0A9H, 08CH;
  70.     PROCEDURE [CODE] SysBeep* (duration: INTEGER) 0A9H, 0C8H;
  71.     PROCEDURE [NOSTKCHK] SetDAFont* (fontNum: INTEGER);
  72.     BEGIN
  73.         SYSTEM.MOVE(SYSTEM.ADR(fontNum), DlgFont, 2)
  74.     END SetDAFont;
  75.     (** Creating and Disposing of Dialogs **)
  76.     PROCEDURE [CODE] NewDialog* (dStorage: MacTypes.Ptr; boundsRect: MacTypes.Rect; title: MacTypes.Str255;
  77.                                 visible: BOOLEAN; procID: INTEGER; behind: MacWindowMgr.WindowPtr;
  78.                                 goAwayFlag: BOOLEAN; refCon: LONGINT; items: MacTypes.Handle): DialogPtr 0A9H, 07DH;
  79.     PROCEDURE [CODE] GetNewDialog* (dialogID: INTEGER; dStorage: MacTypes.Ptr;
  80.                                 behind: MacWindowMgr.WindowPtr): DialogPtr 0A9H, 07CH;
  81.     PROCEDURE [CODE] CloseDialog* (dialog: DialogPtr) 0A9H, 082H;
  82.     PROCEDURE [CODE] DisposDialog* (theDialog: DialogPtr) 0A9H, 083H;
  83.     (** Handling Dialog Events **)
  84.     PROCEDURE [CODE] ModalDialog* (filterProc: MacTypes.ProcPtr; VAR itemHit: INTEGER) 0A9H, 091H;
  85.     PROCEDURE [CODE] IsDialogEvent* (theEvent: MacEventMgr.EventRecord): BOOLEAN 0A9H, 07FH;
  86.     PROCEDURE [CODE] DialogSelect* (theEvent: MacEventMgr.EventRecord;
  87.                                 VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN 0A9H, 080H;
  88.     PROCEDURE [NOSTKCHK] DlgCut* (dialog: DialogPtr);
  89.     BEGIN
  90.         IF dialog.editField >= 0 THEN MacTextEdit.TECut(dialog.textH) END
  91.     END DlgCut;
  92.     PROCEDURE [NOSTKCHK] DlgCopy* (dialog: DialogPtr);
  93.     BEGIN
  94.         IF dialog.editField >= 0 THEN MacTextEdit.TECopy(dialog.textH) END
  95.     END DlgCopy;
  96.     PROCEDURE [NOSTKCHK] DlgPaste* (dialog: DialogPtr);
  97.     BEGIN
  98.         IF dialog.editField >= 0 THEN MacTextEdit.TEPaste(dialog.textH) END
  99.     END DlgPaste;
  100.     PROCEDURE [NOSTKCHK] DlgDelete* (dialog: DialogPtr);
  101.     BEGIN
  102.         IF dialog.editField >= 0 THEN MacTextEdit.TEDelete(dialog.textH) END
  103.     END DlgDelete;
  104.     PROCEDURE [CODE] DrawDialog* (dialog: DialogPtr) 0A9H, 081H;
  105.     (** Invoking Alerts **)
  106.     PROCEDURE [CODE] Alert* (alertID: INTEGER; filterProc: MacTypes.ProcPtr): INTEGER 0A9H, 085H;
  107.     PROCEDURE [CODE] StopAlert* (alertID: INTEGER; filterProc: MacTypes.ProcPtr): INTEGER 0A9H, 086H;
  108.     PROCEDURE [CODE] NoteAlert* (alertID: INTEGER; filterProc: MacTypes.ProcPtr): INTEGER 0A9H, 087H;
  109.     PROCEDURE [CODE] CautionAlert* (alertID: INTEGER; filterProc: MacTypes.ProcPtr): INTEGER 0A9H, 088H;
  110.     (** Manipulating Items in Dialogs and Alerts **)
  111.     PROCEDURE [CODE] ParamText* (param0, param1, param2, param3: MacTypes.Str255) 0A9H, 08BH;
  112.     PROCEDURE [CODE] GetDItem* (theDialog: DialogPtr; itemNo: INTEGER; VAR itemType: INTEGER;
  113.                         VAR item: MacTypes.Handle; VAR box: MacTypes.Rect) 0A9H, 08DH;
  114.     PROCEDURE [CODE] SetDItem* (theDialog: DialogPtr; itemNo: INTEGER;
  115.                         itemType: INTEGER; item: MacTypes.Handle; box: MacTypes.Rect) 0A9H, 08EH;
  116.     PROCEDURE [CODE] GetIText* (item: MacTypes.Handle; VAR text: MacTypes.Str255) 0A9H, 090H;
  117.     PROCEDURE [CODE] SetIText* (item: MacTypes.Handle; text: MacTypes.Str255) 0A9H, 08FH;
  118.     PROCEDURE [CODE] SelIText* (theDialog: DialogPtr; itemNo: INTEGER; startSel, endSel: INTEGER) 0A9H, 07EH;
  119.     PROCEDURE [NOSTKCHK] GetAlrtStage* (): INTEGER;
  120.         VAR stage: INTEGER;
  121.     BEGIN
  122.         SYSTEM.MOVE(ACount, SYSTEM.ADR(stage), 2);
  123.         RETURN stage
  124.     END GetAlrtStage;
  125.     PROCEDURE [NOSTKCHK] ResetAlrtStage*;
  126.         VAR stage: INTEGER;
  127.     BEGIN
  128.         stage := -1;
  129.         SYSTEM.MOVE(SYSTEM.ADR(stage), ACount, 2)
  130.     END ResetAlrtStage;
  131.     (** 128K ROM **)
  132.     PROCEDURE [CODE] HideDItem* (theDialog: DialogPtr; itemNo: INTEGER) 0A8H, 027H;
  133.     PROCEDURE [CODE] ShowDItem* (theDialog: DialogPtr; itemNo: INTEGER) 0A8H, 028H;
  134.     PROCEDURE [CODE] FindDItem* (theDialog: DialogPtr; thePt: MacTypes.Point): INTEGER 0A9H, 084H;
  135.     PROCEDURE [CODE] UpdtDialog* (theDialog: DialogPtr; updateRgn: MacTypes.RgnHandle) 0A9H, 087H;
  136.     PROCEDURE [CODE] InitDialogs* (restartProc: LONGINT)    0A9H, 07BH;
  137. END MacDialogMgr.
  138. TextControllers.StdCtrlDesc
  139. TextControllers.ControllerDesc
  140. Containers.ControllerDesc
  141. Controllers.ControllerDesc
  142. TextRulers.StdRulerDesc
  143. TextRulers.RulerDesc
  144. TextRulers.StdStyleDesc
  145. TextRulers.StyleDesc
  146. TextRulers.AttributesDesc
  147. Geneva
  148. Documents.ControllerDesc
  149.